Removing Labels



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

Removing Labels

Postby srn123 » Mon Sep 07, 2009 3:05 pm

Hi,

I am coding a REXX program to write jcl skeletons. The jcl skeletons will be written on that line where the user provides a particular label (eg .k) . After writing the jcl skeleton, I want to remove the label in that particular line. Could anyone suggest me how to do this?
This is how I check the line number where the user has keyed in the label or not -

'(LN) = LINENUM .K'
IF RC = 8 THEN
DO
SAY "LABEL K NOT FOUND"
EXIT
END

Thanks!
srn123
 
Posts: 13
Joined: Wed Aug 26, 2009 6:07 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Removing Labels using Rexx

Postby srn123 » Mon Sep 07, 2009 5:53 pm

Got the anwer for this. It should be -
ADDRESS ISREDIT 'RESET LABEL .K .K' at the end of the jcl skeleton.
srn123
 
Posts: 13
Joined: Wed Aug 26, 2009 6:07 pm
Has thanked: 0 time
Been thanked: 0 time


Return to TSO & ISPF

 


  • Related topics
    Replies
    Views
    Last post