MVS Jan 2005.p65 - CBT Tape

name of the dataset where the expanded listing was stored so
they can view it by other means.
NDVRLIST REXX
/* rexx comment *** start standard header
NDVRLIST Scan Endevor list library and expand listing to human readable
rexx comment *** end standard header */
parse upper arg sys subsys mem
ds = "ENDEVOR.PROD."sys"."subsys".LIST("mem")" /* name dataset/member */
"ALLOC DD(X@X) DA('"ds"') SHR REUSE"
"EXECIO * DISKR X@X (STEM LINE. FINIS"
"FREE DD(X@X)"
do i = 1 to line.Ø
pass = Ø
do until pos("FD"x,line.i) = Ø & pos("FC"x,line.i) = Ø
pass = pass + 1
fdpos = pos("FD"x,line.i)
fcpos = pos("FC"x,line.i)
select
when fcpos > Ø then do /* expand characters */
fccount = x2d(c2x(substr(line.i,fcpos+1,1)))
fcdata = substr(line.i,fcpos+2,1)
line.i = delstr(line.i,fcpos,3)
line.i = insert(fcdata,line.i,fcpos-1,fccount,fcdata)
end
when fdpos > Ø then do /* expand blanks */
fdcount = x2d(c2x(substr(line.i,fdpos+1,1)))
line.i = delstr(line.i,fdpos,2)
line.i = insert(" ",line.i,fdpos-1,fdcount," ")
end
otherwise nop /* leave the line as is */
end /* select */
end /* do until */
end i
tmp = userid()".D"date(J)".T"time(S)
"ALLOC DD(C1PRINT) DA('"Tmp".LIST')",
"REUSE NEW SPACE(1Ø,5) CYL ",
"RELEASE UNIT(VIO) LRECL(133) BLKSIZE(2793Ø) RECFM(F B A)"
"EXECIO" line.Ø "DISKW C1PRINT (STEM LINE. FINIS"
dsn="'"Tmp".LIST'"
x = listdsi(dsn)
"FREE DD(C1PRINT)"
if sysused = Ø then do
say "Program "pgm" not found in ENDEVOR.PROD."sys"."subsys".LIST" ,
", please try again..."
return 12
18 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.