Program to be Added (IBM z/OS Assembler)

[RISCCISCInstSet]

What I'm trying to understand: how do these code snippets interlock? Do they even connect to each other at all?!

Could you explain what is going on/how to connect them or how to connect a program?


COPY     SUBENTRY
    program to be added
      SUBEXIT
INFILE   DCB   DDNAME=INFILE,                                          X
               DSORG=PS,                                               X
               RECFM=FT,                                               X
               LRECL=80,                                               X
               EODAD=EOF,                                              X
               MACRF=GM
*
OUTFILE  DCB   DDNAME=OUTFILE,                                         X
               DSORG=PS,                                               X
               RECFM=FT,                                               X
               LRECL=133,                                              X
               MACRF=PM
*
IRECORD  DC    CL80' '
ORECORD  DC    CL133' '


         TITLE 'PROGRAM 4 80/80 LISTING'
         PRINT NOGEN
COPY     SUBENTRY
         WTO   'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
         OPEN  (INFILE,INPUT)
         OPEN  (OUTFILE,OUTPUT)
         WTO   'Files opened successfully'
*
LOOP     EQU   *
         GET   INFILE,IRECORD
         MVC   ORECORD,=CL133' '
         MVC   ORECORD(80),IRECORD
         PUT   OUTFILE,ORECORD
         B     LOOP
*
EOF      EQU   *
         CLOSE (INFILE,,OUTFILE)
         WTO   'PROG4 ENDED OK'
         SUBEXIT

[clive]

You're in totally the wrong place, but the following would seem to be the logical inference.

Code Select Expand

         TITLE 'PROGRAM 4 80/80 LISTING'
         PRINT NOGEN
COPY     SUBENTRY
         WTO   'PROG4 COPY INFILE (ASCII) TO OUTFILE (ASCII)'
         OPEN  (INFILE,INPUT)
         OPEN  (OUTFILE,OUTPUT)
         WTO   'Files opened successfully'
*
LOOP     EQU   *
         GET   INFILE,IRECORD
         MVC   ORECORD,=CL133' '
         MVC   ORECORD(80),IRECORD
         PUT   OUTFILE,ORECORD
         B     LOOP
*
EOF      EQU   *
         CLOSE (INFILE,,OUTFILE)
         WTO   'PROG4 ENDED OK'
         SUBEXIT
INFILE   DCB   DDNAME=INFILE,                                          X
               DSORG=PS,                                               X
               RECFM=FT,                                               X
               LRECL=80,                                               X
               EODAD=EOF,                                              X
               MACRF=GM
*
OUTFILE  DCB   DDNAME=OUTFILE,                                         X
               DSORG=PS,                                               X
               RECFM=FT,                                               X
               LRECL=133,                                              X
               MACRF=PM
*
IRECORD  DC    CL80' '
ORECORD  DC    CL133' '


[RISCCISCInstSet]

 :U Thank you for your help; this code has been stumping me for some time.

[NoCforMe]

What is that, S/370 code? Gawd, that takes me back. Used to be a COBOL programmer. JCL and all that. Looks like an 80-character "data card" and a 133-character line printer, no?