|
View previous topic :: View next topic
|
| Author |
Message |
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hi,
I want to expand the copybook present in cobol program.
I am trying to understand the existing code. Just i pasted here some portion of the code. And here i didnt understand what does CPYBK will do? Is it a fuction or queue? And it is not used elseshere in the code.
| Code: |
ADDRESS ISREDIT
"MACRO (PARM)"
"(STMT) = LINE .ZCSR"
"(X Y) = CURSOR"
PARSE UPPER VAR PARM PARM
PARTSTMT = WORDS(SUBSTR(STMT,1,Y))
RECNAME = STRIP(TRANSLATE(WORD(STMT,PARTSTMT),"","."))
ADDRESS TSO
IF POS("IDMS",STMT) = 0 THEN DO
"CPYBK "RECNAME
EXIT
END
|
Any one have have idea on this?
Thanks
R KARTHIK |
|
| Back to top |
|
 |
prino
Senior Member
Joined: 07 Feb 2009
Posts: 1306
Location: Vilnius, Lithuania
|
|
|
|
It's an external site specific command. Look at the libs hanging off your session and find the member.
TSO ISRDDN followed by M CPYBK |
|
| Back to top |
|
|
karthikr44
Active User
Joined: 25 Aug 2007
Posts: 235
Location: Chennai
|
|
|
|
Hi Robert,
You are correct. It was found in PDS allocated to SYSEXEC.
Thanks
R KARTHIK |
|
| Back to top |
|
|
|
|
