Cobol Select and Assign

Ron Hudson <[email protected]> Wed, 16 Jun 2010 11:17:55 -0700
Newsgroups gmane.comp.emulators.turnkey-mvs
Message-ID <[email protected]>
Hi everyone,

I apologize to those I annoy - I have been Googling to try to find answers
and
basically only find frustration.


I thought this would be easier - a checkbook totaling program written in
cobol.

I want to read a file specified in my JCL and produce printed lines on the
printer.
I will also be reading a number from each record and keeping several sums.

Right now I am having problems specifying the file my program will interact
with. Also
the printer.

I have read all over the place, but I think most of what I have read
pertains to newer
versions of cobol.

00003   000700  ENVIRONMENT DIVISION.
               00
00004           CONFIGURATION SECTION.
00005   000800  SOURCE-COMPUTER. IBM-370.
               00
00006   000900  OBJECT-COMPUTER. IBM-370.
               00
00007           INPUT-OUTPUT SECTION.
00008           FILE-CONTROL.
00009               SELECT REGISTER-FILE
00010                  ASSIGN TO DDREG
00011                  ORGANIZATION IS SEQUENTIAL.
00012               SELECT REPORT-FILE
00013                  ASSIGN TO SYSPRINT.

And this is what cobol says about it....

 CARD   ERROR MESSAGE

 11     IKF1155I-W     DEVICE CLASS INVALID IN SYSTEM-NAME. SKIPPING
TO NEXT FIELD.
 11     IKF1141I-W     FILE ORGANIZATION FIELD INVALID IN SYSTEM-NAME.
 SEQUENTIAL ASSUMED.
 11     IKF1157I-E     EXTERNAL-NAME NOT PRESENT IN SYSTEM-NAME.
 11     IKF1017I-E     IS INVALID IN SELECT CLAUSE. SKIPPING TO NEXT CLAUSE.
 13     IKF1155I-W     DEVICE CLASS INVALID IN SYSTEM-NAME. SKIPPING
TO NEXT FIELD.
 13     IKF1141I-W     FILE ORGANIZATION FIELD INVALID IN SYSTEM-NAME.
 SEQUENTIAL ASSUMED.
 13     IKF1157I-E     EXTERNAL-NAME NOT PRESENT IN SYSTEM-NAME.
 9      IKF2133I-W     LABEL RECORDS CLAUSE MISSING. DD CARD OPTION
WILL BE TAKEN.




There are a bunch of other messages, but I think they are triggered by
these.  I have tried several things
for both the register-file and the report-file (actually - the printer I
hope) instead of SYSPRINT I have had
PRINTER, and instead of DDREG I have had DISK and FILE.

Ron.