/* REXX */ /* process REXX input on REXXIN */ /* and launch EXEC */ unit='WORK' /* temporary work unit */ 'ALLOC SP(1 1) TRACKS DIR(1) FI(SYSEXEC) UNIT('unit') REUSE' If RC \= 0 then Do Say 'Unable to allocate temporary dataset to SYSEXEC' Exit 12 End dsirc = LISTDSI('SYSEXEC' 'FILE') If dsirc \= 0 then Do Say 'Unable to retrieve dataset name RC='dsirc Say sysmsglvl2 End "ALLOC DA('"sysdsname"(REXXPGM)') FI(REXXOUT) REUSE" If RC \= 0 then Do Say 'Unable to allocate 'sysdsname' to REXXOUT' Exit 12 End 'ALLOC SP(1 1) TRACKS FI(DFSPARM) UNIT('unit') REUSE' If RC \= 0 then Do Say 'Unable to allocate DFSPARM' Exit 12 End dfsparm.1 = ' OPTION SORTIN=REXXIN,SORTOUT=REXXOUT' dfsparm.2 = ' SORT FIELDS=COPY' 'EXECIO 2 DISKW DFSPARM (stem dfsparm. FINIS)' 'ALLOC DUMMY FI(SYSIN) REUSE' 'ALLOC DUMMY FI(SYSOUT) REUSE' 'CALL *(SORT)' sortrc = RC If sortrc \= 0 then Do Say 'SORT failed RC='sortrc Exit 12 End 'FREE FI(SYSIN SYSOUT DFSPARM)' '%REXXPGM' Exit 0