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