Expand Procedure inside JCL in EDIT mode



IBM's Command List programming language & Restructured Extended Executor

Expand Procedure inside JCL in EDIT mode

Postby j0das » Fri Feb 19, 2016 2:50 am

Hi,
Im doing a Rexx to expand a procedure inside a jcl.
The problem is that inside of the JCL i insert the lines of the procedure successfully but im not able to edit that lines.
Can someone help me? Thanks.
The Expand part of the REXX is actually like this.

EXPAND:
DATA = DATASET'('MEM')'
ADDRESS TSO
'PROFILE NOPREFIX'
MSG=MSG('OFF')
'FREE FI(@@)'
'ALLOC DA('DATA') FI(@@) OLD'
'EXECIO * DISKR @@(STEM REG. '
'FREE FI(@@)'
DO I = REG.0 TO 1 BY -1
REG.I= STRIP(REG.I)
ADDRESS ISREDIT 'LINE_AFTER 'ROW' = INFOLINE "'REG.I'"'
END
RETURN
j0das
 
Posts: 2
Joined: Fri Feb 19, 2016 2:36 am
Has thanked: 0 time
Been thanked: 0 time

Re: Expand Procedure inside JCL in EDIT mode

 

Re: Expand Procedure inside JCL in EDIT mode

Postby j0das » Fri Feb 19, 2016 4:07 pm

Ok,alredy solved....thanks
j0das
 
Posts: 2
Joined: Fri Feb 19, 2016 2:36 am
Has thanked: 0 time
Been thanked: 0 time


Return to CLIST & REXX

 


  • Related topics
    Replies
    Views
    Last post