RE: Cobol Select and Assign

UT means a "unit record" device. S means sequential, as the second message
assumed. 

 

From: [email protected] [mailto:[email protected]] On
Behalf Of Ron Hudson
Sent: Wednesday, June 16, 2010 3:39 PM
To: [email protected]
Subject: Re: [turnkey-mvs] Cobol Select and Assign

 



what kind of magic is "UT-S-<my original name>"

Do I refer to them in runtime JCL as:

//DDREG DD DSN=HUDSON.DATA.DATA(CHKREG),DISP=SHR
//SYSPRINT DD SYSPRINT=A

??



On Wed, Jun 16, 2010 at 2:27 PM, Jean-Marie Bodin <[email protected]>
wrote:

  

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 <mailto:[email protected]>  

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.
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.