How to find the particular symbolic parameter



TSO Programming, ISPF, SDF, SDSF and PDF, FTP, TCP/IP Concepts, SNA & SNA/IP etc...

How to find the particular symbolic parameter

Postby chidams78 » Mon Nov 24, 2008 9:48 pm

Hi,

My reqt is to find a particular symbolic parameter (RETPD here) from the PROC and to blank it out with spaces.

//TST1234 PROC CONDB='0,NE',CONDC='0,NE',CONDD='0,NE',COND2='0,NE',
// DATEFILE='(-10)',PLUS1='(+1)',TAPE='TAPE',
// GDG='GDG,',RETPD=',LABEL=RETPD=3',
// CLASSA='(A,,0010)

Ouput should be
//TST1234 PROC CONDB='0,NE',CONDC='0,NE',CONDD='0,NE',COND2='0,NE',
// DATEFILE='(-10)',PLUS1='(+1)',TAPE='TAPE',
// GDG='GDG,',RETPD=' ',
// CLASSA='(A,,0010)

After finding the RETPD, I want to blank out the corresponding symbolic parameter. Currently, RETPD has the value
RETPD=',LABEL=RETPD=3' but it can also be like RET=',LABEL=RETPD=60' or RTP='RETPD=20' in other PROCs.

Since the keyword '=RETPD=' is not changing, I thought of finding for the variable '=RETPD='. Then read that line by
"ISREDIT F '=RETPD=' NX"
"ISREDIT (LINE) = LINENUM. ZCSR"
"ISREDIT (RETENLNE) = LINE .ZCSR"

After this I am struck how to get the symbolic variable RETPD since out of ',LABEL=RETPD=3', only RETPD is constant.

Please help.

Thanks
Chidam
chidams78
 
Posts: 17
Joined: Fri Sep 19, 2008 6:35 pm
Has thanked: 0 time
Been thanked: 0 time

Re: How to find the particular symbolic parameter

 

Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post