Hi,
I have written some rexx code, i dont know how to make the TSO/ISPF environment communicate with my rexx code. If you want to copy some cobol lines, you type 'cc' in one line and type 'cc' in another line and press enter, the lines are copied. Similarly, if i want to comment some lines i type '.ca' in one line, and '.cb' in another line, i have written the rexx code and placed it in a
dataset 'A0000.USER.CLIST' (which is allocated to TSO). The thing is, when type '.ca' and '.cb'in the lines, nothing is happening.
/* REXX */
/* REXX PROGRAM TO COMMENT COBOL LINES */
"ISREDIT MACRO (N) NOPROCESS"
ISREDIT "(MX)=LINENUM .ZLAST "
IF LENGTH(N)=0 THEN N=7
ISREDIT "PROCESS RANGE C"
ISREDIT "(L)=LINENUM .ZFRANGE "
ISREDIT "(MX)=LINENUM .ZLRANGE "
ISREDIT "LABEL "L"=.ca "
ISREDIT "LABEL "MX"=.cb "
ISREDIT "C "N" ' ' '*' all .ca .cb"
EXIT
PLEASE ENLIGHTEN ME.
I have written some rexx code, i dont know how to make the TSO/ISPF environment communicate with my rexx code. If you want to copy some cobol lines, you type 'cc' in one line and type 'cc' in another line and press enter, the lines are copied. Similarly, if i want to comment some lines i type '.ca' in one line, and '.cb' in another line, i have written the rexx code and placed it in a
dataset 'A0000.USER.CLIST' (which is allocated to TSO). The thing is, when type '.ca' and '.cb'in the lines, nothing is happening.
/* REXX */
/* REXX PROGRAM TO COMMENT COBOL LINES */
"ISREDIT MACRO (N) NOPROCESS"
ISREDIT "(MX)=LINENUM .ZLAST "
IF LENGTH(N)=0 THEN N=7
ISREDIT "PROCESS RANGE C"
ISREDIT "(L)=LINENUM .ZFRANGE "
ISREDIT "(MX)=LINENUM .ZLRANGE "
ISREDIT "LABEL "L"=.ca "
ISREDIT "LABEL "MX"=.cb "
ISREDIT "C "N" ' ' '*' all .ca .cb"
EXIT
PLEASE ENLIGHTEN ME.