//ZEKE JOB (),MSGCLASS=A,MSGLEVEL=(1,1),TIME=(0,10) //TEST EXEC IGYWCLG,LNGPRFX=IGY410 //COBOL.SYSIN DD DSN=&SYSUID..SRC.COB(QSORT),DISP=SHR //*---------------------------------------------------------------- //GO.QSORTIN DD DSN=&SYSUID..SRC.COB.DATA.FB80(QSORTIN),DISP=SHR //*---------------------------------------------------------------- //GO.QSORTOUT DD DSN=&SYSUID..SRC.COB.DATA.FB80(QSORTOUT),DISP=SHR