Re: 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 <[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.
>
>
>
>
>   
>