// EXEC GLIST,LIST=NO
//TO DD VOL=(,RETAIN,SER=938845),DCB=(RECFM=VB,BLKSIZE=2960,
//    LRECL=137,DEN=3),
//  UNIT=DEN1600,DISP=NEW,