Re: Cobol Select and Assign

Hi

Try this

00007           INPUT-OUTPUT SECTION.
00008           FILE-CONTROL.
00009               SELECT REGISTER-FILE
00010                  ASSIGN TO UT-S-DDREG.
00012               SELECT REPORT-FILE
00013                  ASSIGN TO UT-S-SYSPRINT.

jm
  ----- Original Message ----- 
  From: Ron Hudson 
  To: [email protected] 
  Sent: Wednesday, June 16, 2010 8:17 PM
  Subject: [turnkey-mvs] Cobol Select and Assign




  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.                                             0000006   000900  OBJECT-COMPUTER. IBM-370.                                             00
00007           INPUT-OUTPUT SECTION.00008           FILE-CONTROL.00009               SELECT REGISTER-FILE00010                  ASSIGN TO DDREG00011                  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.