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