 |
UV Software has a complete solution for conversion of mainframe
MVS or VSE JCL, COBOL, & DATA batch systems to Unix, Linux, or Windows/SFU.
Over 50 successful conversions including global corporations & government agencies.
Please see demo conversions & detailed explanations at:
www.uvsoftware.ca
You may send samples of your files for conversion & return by email.
You may download 1 free utility from:
www.uvsoftware.ca/ libuvhd.htm
'uvhd' displays data files with packed/binary fields in 'vertical hexadecimal',
and includes many interactive functions (browse, search, select, update, print, etc).
|
 |
COBOL Services |
Travancore Software Solutions
offers winning mainframe COBOL strategies for:
- SOA Enablement
- Mainframe COBOL Migration
- Mainframe COBOL Application Development
- Mainframe Application Support & Maintenance
- Enterprise Application Integration
Contact us at sales@travancore.net. |
 |
COBOL Report Generator |
|
Print graphical COBOL reports in Windows with
RPV Reports.
Insert graphics (images, photos, logos, charts, etc.) into your COBOL reports
to improve the print quality of your COBOL reports.
See how RPV Reports can be used to preview or print graphical COBOL reports in Windows. |
 |
COBOL Documentation |
|
Are your mainframe COBOL applications properly documented?
DCD III
is a comprehensive COBOL documentation and application
understanding tool that will allow you to reduce COBOL maintenance,
development, and mainframe migration costs.
Learn more about how you can document and understand your mainframe COBOL
applications with DCD III. |
 |
COBOL Migration |
|
Migrate your batch mainframe COBOL applications to open systems platforms,
such as Windows, AIX and Linux, with
OpenSCL.
OpenSCL is a mainframe emulator that runs on a PC or
server with Windows and Unix-based operating systems.
OpenSCL is your batch mainframe COBOL applications migration solution. |
 |
Advertise With COBUG |
|
Advertise on the
COBUG website and reach tens of thousands of COBOL users. Increase
your COBOL sales leads.
Contact COBUG at advertise@cobug.com for advertising rates.
|
 |
|
 |
|
|
| |
|
COBOL Language [
return
] |
|
From |
Message |
r_jaro
7/30/2008 02:23:03
|
Subject: ACCEPT -BAD WORK
Message: HI
This is my structure data.
01 CUSTOMER-DETAILS.
02 ID-CUSTOMER PIC 9(3).
02 CUSTOMER-NAME.
03 LAST-NAME PIC X(20).
03 FIRST-NAME PIC X(20).
02 ADDRESS-1.
03 TOWN PIC X(20).
03 STREET PIC X(20).
03 NUMBER-HOUSE PIC 9(3).
02 NIP PIC X(13).
and i try initialize this record.
INIT-CUSTOMER-RECORD.
MOVE SPACE TO CUSTOMER-DETAILS.
MOVE ZEROES TO ID-CUSTOMER.
MOVE ZEROES TO NUMBER-HOUSE.
ENTER-CUSTOMER-RECORD.
DISPLAY "ENTER ID-CUSTOMER (001-999)".
ACCEPT ID-CUSTOMER.
DISPLAY "ENTER LAST NAME".
ACCEPT LAST-NAME.
DISPLAY "ENTER FIRST-NAME".
ACCEPT FIRST-NAME.
DISPLAY "ENTER TOWN".
ACCEPT TOWN
DISPLAY "ENTER STREET".
ACCEPT STREET.
DISPLAY "ENTER NUMBER HOUSE (001 - 999)".
ACCEPT NUMBER-HOUSE.
DISPLAY "ENTER NIP".
ACCEPT NIP.
When i run program and enter number - is ok
but next field length 30 charset
and i enter example:
Johnny [enter]
and i dont see next DISPLAY FIELD because
len(johnny) = 6 and my field is 30 letter.
I dont no how i can enter next field-record.
When i enter 30 letter then every thing is ok.
|
patrick
7/30/2008 16:20:38
| RE: ACCEPT -BAD WORK
Message: you have errors in your input record designs.
|
r_jaro
7/30/2008 16:24:33
| RE: ACCEPT -BAD WORK
Message: Can You show me where is here some error?
|
r_jaro
7/30/2008 16:29:11
| RE: ACCEPT -BAD WORK
Message: I try example from http://www.lacitec.on.ca/~jlemoe/Cobol/Materiel/Cobol/Manuel/index.htm
And everything ACCEPT dont work.
I use fujitsu COBOL 3.0 - maybe this is no good compilator
|
| |
| P 1 Next Page >> | | | |
|
|
|
[ Go to Top of Page ]
|
|
 |
|