ISPF edit MACRO to copy a Temp PDS member into another PDS member

[balsu79]

Hi, I searched my best to find an answer in this forum. But could not find it. So, I am raising this question.

How to copy the contents of a Temporary PDS member before the first line of a regular PDS member.

I have a regular PDS member 'XXXXXX.SPUFI(SQL)'

Contents of it is

//Line01
//Line02
//Line03

I want to copy 'SPFTEMP1.CNTL' before the first line. This PDS can have multiple lines.

I have acquired SPFTEMP1.CNTL thru the following syntax

"ISPEXEC FTOPEN TEMP"
"ISPEXEC FTINCL " myskeleton
"ISPEXEC FTCLOSE"
ADDRESS ISPEXEC "VGET ZTEMPF"

 

[rexxhead]

ZTEMPF is the datasetname. VGET ZTEMPN, the DDname, instead. Then you can

address TSO "EXECIO * DISKR" ztempn "(FINIS"

The contents are now loaded to the queue and you can

"LABEL 1 = .STRT 0"
do queued()
   parse pull line
   "LINE_BEFORE .STRT = (line)"
end

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[RxUsr]

If your code is part of a MACRO, you can include the following after the VGET ZTEMPF statement:

"ISREDIT COPY '"ZTEMPF"' BEFORE .ZFIRST"