Clicky
Skip to Content
Custom Search

Reply to comment

Anonymous
Yes, allocate an internal

Yes, allocate an internal reader file and write the JCL to that file

//SUBJCL  DD  SYSOUT=(A,INTRDR)

SELECT SUBJCL-FILE ASSIGN TO SUBJCL.

........

FD  SUBJCL-FILE                           
    RECORDING MODE IS F                   
    BLOCK CONTAINS 0 RECORDS.             
01  SUBJCL-REC                  PIC X(80).

.......

OPEN OUTPUT SUBJCL-FILE.

MOVE JCL-LINE1 TO SUBJCL-REC.

WRITE SUBJCL-REC.

MOVE JCL-LINE2 TO SUBJCL-REC.

WRITE SUBJCL-REC.  

.........   

CLOSE SUBJCL-FILE.                        

Reply

  • Allowed HTML tags:
      1. Lines and paragraphs break automatically.

    More information about formatting options

    CAPTCHA
    This question is for testing whether you are a human visitor and to prevent automated spam submissions.

Navigation

Click the +1 button  below to share it with your friends and colleagues

 

Share this if you liked it!

 

Disclaimer



Number of Registered users 714
Theme by Dr. Radut.