Re: Cobol Select and Assign

Ron, at the risk of sounding unpleasant, might I suggest you stick to 
one language at a time? You may very well find yourself mixing languages 
without intending to do so, and this will cause you no end of headaches.

I've never learned COBOL so I can't help you here.

Rick
-------------------------------------------------------------------------------
Ron Hudson wrote:

>  
> <>
>
> 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. 
> <mailto:[email protected]?subject=Cobol%20Select%20and%20Assign> 
> <mailto:[email protected]?subject=Cobol%20Select%20and%20Assign>