MACRO GENVAR GENVAR DSECT SPACE 3 * PLIST FILE SORTIN SPACE RDPLST DS 0D RDOPTN DS CL8 OPTION RDFN DS CL8 FILENAME RDFT DS CL8 FILETYPE RDMODE DS CL2 MODE INITMO DS H ITEM NUMBER DATABF DS F BUFFER ADDRESS INSIZE DS F FVRD DS H RECORD FORMAT NBRD DS H RECORD NUMBER NBBYTRD DS F NUMBER OF BYTES SPACE 2 * PLIST FILE SORTOUT SPACE WRPLST DS 0D WROPTN DS CL8 OPTION WRFN DS CL8 FILENAME WRFT DS CL8 FILETYPE WRMODE DS CL2 MODE NUMWR DS H ITEM NUMBER WRBUF DS F BUFFER ADDRESS WRSIZE DS F FVWR DS H RECORD FORMAT NBWR DS H RECORD NUMBER NBBYTWR DS F NUMBER OF BYTES SPACE 2 * PLIST FILE SYSUT1 SPACE TPPLST DS 0D TPOPTN DS CL8 OPTION TPFN DS CL8 FILENAME TPFT DS CL8 FILETYPE TPMODE DS CL2 MODE NUMTP DS H ITEM NUMBER TPBUF DS F BUFFER ADDRESS TPSIZE DS F FVTP DS H RECORD FORMAT NBTP DS H RECORD NUMBER NBBYTTP DS F NUMBER OF BYTES EJECT * PLIST FILE SYSUT2 SPACE WKPLST DS 0D WKOPTN DS CL8 OPTION WKFN DS CL8 FILENAME WKFT DS CL8 FILETYPE WKMODE DS CL2 MODE NUMWK DS H ITEM NUMBER WKBUF DS F BUFFER ADDRESS WKSIZE DS F FVWK DS H RECORD FORMAT NBWK DS H RECORD NUMBER NBBYTWK DS F NUMBER OF BYTES SPACE 2 WAITRD DS 0D DS CL8 BUFAD DS F DS H LMESS DS H SPACE 2 TYPLIN DS 0D DS CL8 DS AL1 ADDR DS AL3 DS 3X LENGTH DS X SPACE 2 ZONA DS 2D ZONB DS 2D SAVAREA1 DS 18F FIRST LEVEL SAVE AREA SAVAREA2 DS 18F SECOND LEVEL SAVE AREA SAVAREA3 DS 18F THIRD LEVEL SAVE AREA SAVAREA4 DS 18F SAVAREA5 DS 18F SPACE 2 * FLAGS USED IN THE SORT OPERATION FLAG01 DS X MSGNONE EQU X'80' GIVE NO MESSAGES UW MSGCRIT EQU X'40' GIVE CRITICAL MESSAGES UW MSGPRT EQU X'20' GIVE MESSAGES ON PRINTER UW E15EXIT EQU X'10' E15 EXIT PRESENT UW E35EXIT EQU X'08' E35 EXIT PRESENT UW SORTINEX EQU X'04' SORTIN EXISTS UW SORTINEF EQU X'02' EOF ON SORTIN UW LASTNAK EQU X'01' LAST RECORD NOT ACCEPTED UW SPACE FLAG02 DS X FORMAT FLAG FORMASC EQU X'80' ASCENDING UW FORMDES EQU X'40' DESCENDING UW FORMCH EQU X'20' CHARACTER UW FORMZD EQU X'10' ZONED DECIMAL UW FORMPD EQU X'08' PACKED DECIMAL UW FORMFI EQU X'04' FIXED BINARY UW FORMBI EQU X'02' BINARY (NOT SUPPORTED) UW FORMFL EQU X'01' FLOATING POINT UW SPACE FLAG03 DS X SORTFLDS FLAG FLDFLDS EQU X'80' FIELDS= FOUND UW FLDFMT EQU X'40' FORMAT= FOUND UW FLDSIZE EQU X'20' FILSZ= OR SIZE= FOUND UW FLDSKIP EQU X'10' SKIPREC= FOUND UW FLDCKPT EQU X'08' CKPT FOUND UW FLDENTER EQU X'04' SORTFLDS HAS BEEN ENTERED UW RDRNOE15 EQU X'02' E15 IS NOT TO BE CALLED UW RDREND EQU X'01' END OF READER UW SPACE FLAG04 DS X WTRCLOSE EQU X'80' CLOSE WRITER UW DDSORT EQU X'40' DDNAME=SORT AND E35 PRESENT (?) UW VARINP EQU X'20' VARIABLE LENGTH INPUT UW WTRNOE35 EQU X'10' E35 IS NOT TO BE CALLED UW WTRLSTIN EQU X'08' LAST RECORD INSERTED UW WTRWK01 EQU X'04' USED SORTWK01 UW RCDTYPE EQU X'02' TYPE= FOUND UW RCDLENG EQU X'01' LENGTH= FOUND UW SPACE DEBLIBR DS F STARTING ADDRESS OF FREE MEMORY TAILLE DS F FREE MEMORY SIZE SEQCOMP DS F ADDRESS OF COMPARE SEQUENCY SEQMVC DS F ADDRESS OF MVC SEQUENCY BUFFER DS F ADDRESS OF BUFFER ADTABLE DS F STARTING ADDRESS OF THE TABLE ADARBRE DS F STARTING ADDRESS OF THE TREE ADPROCH DS F NEXT FREE ELEMENT ADDRESS IN TREE CHPTRI DS F ADDRESS OF SORTING FIELD FINLIBR DS F ENDING ADDRESS OF FREE MEMORY CORE DS F MEMORY SIZE WANTED SKIP DS F NUMBER OF RECORDS TO BE SKIP RCDNBR DS F TOTAL NUMBER OF INPUT RECORDS DDNAME DS CL4 OPTIONAL DDNAME STRTCARD DS F SORTFIELDS CARD ADDRESS ENDCARD DS F RCDCARD DS F RECORD CARD ADDRESS ERCDCARD DS F E15AD DS F E15 EXIT ROUTINE ADDRESS E35AD DS F E35 EXIT ROUTINE ADDRESS RCDIN DS F INPUT RECORDS COUNTER RCDOUT DS F IOUTPUT RECORDS COUNTER INSERT DS F INSERTED RECORDS COUNTER DELETE DS F DELEYED RECORDS COUNTER RCDAD DS F RECORD ADDRESS (USED BY E15 & E35) OUTAREA DS F DS 2X VARSW DS X VARIABLE LENGTH FILE SWITCHES UB VARIN EQU X'80' VARIABLE LENGTH SORTIN EXISTS | VARBUF EQU X'40' BUFFER POINTS BEYOND RDW AREA UB SCHKSWTH DS X BUFUTIL DS F ADDRESS OF USER'S BUFFER PLISTPTR DS F SIZE DS H LENGTH OF INPUT RECORD NNN DS H NUMBER OF RECORDS IN INPUT NUMENR DS H CURRENT RECORD NUMBER STRTCOL DS H STARTING CULUMN LNGTH DS H LENGTH OF THE FIELD PETITL DS H L LPL2 DS H L + 2 LLL DS H L + 12 DEBCH DS H STARTING FIELD NBARB DS H NUMBER OF TREE (B) ENDVAR DS 0X LONGVAR DS 0XL(ENDVAR-GENVAR) LENGTH OF THIS DSECT LOW EQU 0 HIGH EQU 3 BACK EQU 6 DSTRINIT EQU 64 DSCAN EQU 56 MEND