*DECK SEQTBL
          IDENT  SEQTBL 
          COMMENT  COLLATING SEQUENCE TABLES
SEQTBL    TITLE    SEQTBL - COLLATING SEQUENCE TABLES 
          LIST   F                 LIST -IF- SKIPPED LINES... 
          SPACE  2
*** 
*         THE COLLATING SEQUENCE TABLES USED IN QU ARE DEFINED HERE.
*         THERE ARE THREE DIFFERENT TYPES OF TABLES USED
* 
*         1. SORTTABLES 
*                USED IN OVERLAY 1,4 FOR THE SORT VERB
*                EACH TABLE IS 9 WORDS LONG 
*                WORD 1  COLLATING NAME 1-10 CHARACTERS 
*                        LEFT JUSTIFIED BLANK FILLED
*                WORD 2-8 COLLATING CHARACTER STRING
*                        1-64 CHARACTERS PACKED 10 CHARACTERS PER 
*                        WORD 
*                WORD 9  NUMBER OF CHARACTERS IN COLLATING STRING 
* 
*                AT INSTALLATION TIME THE ANALYST CAN ADD ONE ORE MORE
*                USER-DEFINED TABLES AT THE END OF THE SORTTABLES.
*                THE ONLY PARAMETER WHICH HAS TO BE CHANGED ADDITIONALLY
*                IS SEQNO (CONTAINS NUMBER OF SORTTABLES).
* 
*         2. COBCOL THIS COBOL COLLATING TABLE IS PART OF THE 
*                SECOND SET OF TABLES DEFINED IN THIS ROUTINE.
*                THIS SET CONSISTS OF A 64 WORD ARRAY.
*                COBCOL OCCUPIES THE RIGHTMOST CHARACTER- 
*                POSITION OF EACH WORD WITHIN THIS ARRAY
*                AND SPECIFIES THE COLLATING VALUE FOR EACH 
*                CHARACTER. 
*                E.G.  TO GET THE COLLATING VALUE FOR CHARACTER 
*                      D (DISPLAY CODE 04)
*                      YOU HAVE TO LOOK UP THE RIGHTMOST CHARACTER
*                      IN WORD 4 OF THE TABLE AND COULD GET,
*                      DEPENDING ON THE CHARACTER SET USED, 26B...
*                      THAT MEANS C HAS A COLLATING VALUE OF 26B. 
* 
*         3. DCT-CDT
*                COBOL... 
*                WORDS 1-8 CHARACTER POSITIONS 1-8 OF THIS 64 WORD
*                ARRAY CONTAIN A DISPLAY TO COLLATING TABLE IN PACKED 
*                FORMAT.
*                WORDS 9-16 CHARACTER POSITIONS 1-8 CONTAIN THE REVERSE,
*                A COLLATING TO DISPLAY TABLE.
*                FORTRAN... 
*                SAME AS COBOL (16 WORDS) BUT IN DISPLAY CODE SEQUENCE
*                THIS TWO TABLES ARE MAINLY USED FOR THE CREATION OF
*                IS FILES.
*                THE ENTRY POINT IS THE SAME AS FOR COBCOL. 
*** 
          SPACE  3
          ENTRY  SEQTBL 
          ENTRY  COBCOL,SEQNO 
          ENTRY  FORTCOL
          ENTRY  COBOL64
          ENTRY  ASCII64
          SPACE  2
          IPARAMS 
SEQTBL    BSS    0                 ENTRY POINT FOR SORT-TABLES
* 
*         START OF SORT-TABLES
* 
          VFD    60/10HCOBOL       COBOL COLLATING SEQUENCE 
 CSET63   IFEQ   IP.CSET,IP.C63 
  
 CSETCDC  IFNE   IP.CSET,IP.C64.2 
          VFD    60/55746165606770717375B 
          VFD    60/76575277455347465056B 
          VFD    60/51546472010203040506B 
          VFD    60/07101166121314151617B 
          VFD    60/20212262232425262730B 
          VFD    60/31326333343536374041B 
          VFD    60/42434400000000000000B 
          VFD    60/64
 CSETCDC  ELSE
          VFD    60/55666460536770515247B   ASCII 63-CHARACTER SET
          VFD    60/45564657503334353637B 
          VFD    60/40414243446377725473B 
          VFD    60/71740102030405060710B 
          VFD    60/11121314151617202122B 
          VFD    60/23242526273031326175B 
          VFD    60/62766500000000000000B 
          VFD    60/64
 CSETCDC  ENDIF 
  
 CSET63   ENDIF 
  
 CSET64   IFNE   IP.CSET,IP.C63 
  
 CSETCDC  IFEQ   IP.CSET,IP.C64.1 
          VFD    60/55746361656067707173B 
          VFD    60/75765752774553474650B 
          VFD    60/56515464720102030405B 
          VFD    60/06071011661213141516B 
          VFD    60/17202122622324252627B 
          VFD    60/30313200333435363740B 
          VFD    60/41424344000000000000B 
          VFD    60/64
 CSETCDC  ENDIF 
  
 CSETASC  IFEQ   IP.CSET,IP.C64.2 
          VFD    60/55666460536367705152B 
          VFD    60/47455646575033343536B 
          VFD    60/37404142434400777254B 
          VFD    60/73717401020304050607B 
          VFD    60/10111213141516172021B 
          VFD    60/22232425262730313261B 
          VFD    60/75627665000000000000B 
          VFD    60/64
 CSETASC  ENDIF 
  
 CSET64   ENDIF 
          SPACE  3
          VFD    60/7HFORTRAN 
          VFD    60/00010203040506071011B 
          VFD    60/12131415161720212223B 
          VFD    60/24252627303132333435B 
          VFD    60/36374041424344454647B 
          VFD    60/50515253545556576061B 
          VFD    60/62636465666770717273B 
          VFD    60/74757677000000000000B 
          VFD    60/64
          SPACE  3
*         PLACE FOR A USER DEFINED SEQUENCE TO BE USED WITH THE 
*         SORT USING VERB 
          SPACE  2
SEQNO     VFD    60/2              NUMBER OF SORT-TABLES
          SPACE  3
* 
*         DEFINITION OF COBCOL AND DCT-CDT TABLE
*         FORTCOL IS THE ADDRESS OF FORTRAN DCT-CDT TABLE 
* 
 CSET63   IFEQ   IP.CSET,IP.C63 
  
 CSETCDC  IFNE   IP.CSET,IP.C64.2 
 COBCOL   VFD    60/77303132333435360077B   COBOL 63 COLLATING SEQUENCE 
          VFD    60/37404243444546470030B 
          VFD    60/50515254555657600031B 
          VFD    60/61626365666770710032B 
          VFD    60/72737475761621200033B 
          VFD    60/22241417250023130034B 
          VFD    60/04025364260341050035B 
          VFD    60/06072710011112150036B 
          VFD    60/55746165606770710037B 
          VFD    60/73757657527745530040B 
          VFD    60/47465056515464720042B 
          VFD    60/01020304050607100043B 
          VFD    60/11661213141516170044B 
          VFD    60/20212262232425260045B 
          VFD    60/27303132633334350046B 
          VFD    60/36374041424344000047B 
 FORTCOL  VFD    60/00010203040506070050B   FORTRAN COLLATING SEQUENCE
          VFD    60/10111213141516170051B 
          VFD    60/20212223242526270052B 
          VFD    60/30313233343536370054B 
          VFD    60/40414243444546470055B 
          VFD    60/50515253545556570056B 
          VFD    60/60616263646566670057B 
          VFD    60/70717273747576770060B 
          VFD    60/00010203040506070061B 
          VFD    60/10111213141516170062B 
          VFD    60/20212223242526270063B 
          VFD    60/30313233343536370065B 
          VFD    60/40414243444546470066B 
          VFD    60/50515253545556570067B 
          VFD    60/60616263646566670070B 
          VFD    60/70717273747576770071B 
 COBOL64  VFD    60/65313233343536370072B   COBOL 64 COLLATING S
          VFD    60/40414344454647500073B 
          VFD    60/51525355565760610074B 
          VFD    60/62636466677071720075B 
          VFD    60/73747576771722210076B 
          VFD    60/23251520260024140016B 
          VFD    60/05035402270442060021B 
          VFD    60/07103011011213160020B 
          VFD    60/55746361656067700022B 
          VFD    60/71737576575277450024B 
          VFD    60/53474650565154640014B 
          VFD    60/72010203040506070017B 
          VFD    60/10116612131415160025B 
          VFD    60/17202122622324250000B 
          VFD    60/26273031320033340023B 
          VFD    60/35363740414243440013B 
 ASCII64  VFD    60/32414243444546470004B   ASCII 64 COLLATING SEQUENCE 
          VFD    60/50515253545556570002B 
          VFD    60/60616263646566670053B 
          VFD    60/70717220212223240064B 
          VFD    60/25262730311315120026B 
          VFD    60/17101104350014160003B 
          VFD    60/03737505027701060041B 
          VFD    60/07373436407476330005B 
          VFD    60/55666460536367700006B 
          VFD    60/51524745564657500007B 
          VFD    60/33343536374041420027B 
          VFD    60/43440077725473710010B 
          VFD    60/74010203040506070001B 
          VFD    60/10111213141516170011B 
          VFD    60/20212223242526270012B 
          VFD    60/30313261756276650015B 
 CSETCDC  ELSE
 COBCOL   VFD    60/77404142434445460077B   ASCII 63 COLLATING SEQUENCE 
          VFD    60/47505152535455560040B 
          VFD    60/57606162636465660041B 
          VFD    60/67707117202122230042B 
          VFD    60/24252627301214110043B 
          VFD    60/16071004340013150044B 
          VFD    60/03727431027601050045B 
          VFD    60/06363335377375320046B 
          VFD    60/55666460536770510047B 
          VFD    60/52474556465750330050B 
          VFD    60/34353637404142430051B 
          VFD    60/44637772547371740052B 
          VFD    60/01020304050607100053B 
          VFD    60/11121314151617200054B 
          VFD    60/21222324252627300055B 
          VFD    60/31326175627665000056B 
 FORTCOL  VFD    60/00010203040506070057B   FORTRAN COLLATING SEQUENCE
          VFD    60/10111213141516170060B 
          VFD    60/20212223242526270061B 
          VFD    60/30313233343536370062B 
          VFD    60/40414243444546470063B 
          VFD    60/50515253545556570064B 
          VFD    60/60616263646566670065B 
          VFD    60/70717273747576770066B 
          VFD    60/00010203040506070067B 
          VFD    60/10111213141516170070B 
          VFD    60/20212223242526270071B 
          VFD    60/30313233343536370017B 
          VFD    60/40414243444546470020B 
          VFD    60/50515253545556570021B 
          VFD    60/60616263646566670022B 
          VFD    60/70717273747576770023B 
 COBOL64  VFD    60/65313233343536370024B   COBOL 64 COLLATING SEQUENCE 
          VFD    60/40414344454647500025B 
          VFD    60/51525355565760610026B 
          VFD    60/62636466677071720027B 
          VFD    60/73747576771722210030B 
          VFD    60/23251520260024140012B 
          VFD    60/05035402270442060014B 
          VFD    60/07103011011213160011B 
          VFD    60/55746361656067700016B 
          VFD    60/71737576575277450007B 
          VFD    60/53474650565154640010B 
          VFD    60/72010203040506070004B 
          VFD    60/10116612131415160034B 
          VFD    60/17202122622324250000B 
          VFD    60/26273031320033340013B 
          VFD    60/35363740414243440015B 
 ASCII64  VFD    60/32414243444546470003B   ASCII 64 COLLATING SEQUENCE 
          VFD    60/50515253545556570072B 
          VFD    60/60616263646566670074B 
          VFD    60/70717220212223240031B 
          VFD    60/25262730311315120002B 
          VFD    60/17101104350014160076B 
          VFD    60/03737505027701060001B 
          VFD    60/07373436407476330005B 
          VFD    60/55666460536367700006B 
          VFD    60/51524745564657500036B 
          VFD    60/33343536374041420033B 
          VFD    60/43440077725473710035B 
          VFD    60/74010203040506070037B 
          VFD    60/10111213141516170073B 
          VFD    60/20212223242526270075B 
          VFD    60/30313261756276650032B 
 CSETCDC  ENDIF 
  
 CSET63   ENDIF 
  
 CSET64   IFNE   IP.CSET,IP.C63 
  
 CSETCDC  IFEQ   IP.CSET,IP.C64.1 
 COBCOL   VFD    60/65313233343536370065B   COBOL 64 COLLATING SEQUENCE 
          VFD    60/40414344454647500031B 
          VFD    60/51525355565760610032B 
          VFD    60/62636466677071720033B 
          VFD    60/73747576771722210034B 
          VFD    60/23251520260024140035B 
          VFD    60/05035402270442060036B 
          VFD    60/07103011011213160037B 
          VFD    60/55746361656067700040B 
          VFD    60/71737576575277450041B 
          VFD    60/53474650565154640043B 
          VFD    60/72010203040506070044B 
          VFD    60/10116612131415160045B 
          VFD    60/17202122622324250046B 
          VFD    60/26273031320033340047B 
          VFD    60/35363740414243440050B 
 FORTCOL  VFD    60/00010203040506070051B   FORTRAN COLLATING SEQUENCE
          VFD    60/10111213141516170052B 
          VFD    60/20212223242526270053B 
          VFD    60/30313233343536370055B 
          VFD    60/40414243444546470056B 
          VFD    60/50515253545556570057B 
          VFD    60/60616263646566670060B 
          VFD    60/70717273747576770061B 
          VFD    60/00010203040506070062B 
          VFD    60/10111213141516170063B 
          VFD    60/20212223242526270064B 
          VFD    60/30313233343536370066B 
          VFD    60/40414243444546470067B 
          VFD    60/50515253545556570070B 
          VFD    60/60616263646566670071B 
          VFD    60/70717273747576770072B 
 COBOL64  VFD    60/65313233343536370073B   COBOL 64 COLLATING SEQUENCE 
          VFD    60/40414344454647500074B 
          VFD    60/51525355565760610075B 
          VFD    60/62636466677071720076B 
          VFD    60/73747576771722210077B 
          VFD    60/23251520260024140017B 
          VFD    60/05035402270442060022B 
          VFD    60/07103011011213160021B 
          VFD    60/55746361656067700023B 
          VFD    60/71737576575277450025B 
          VFD    60/53474650565154640015B 
          VFD    60/72010203040506070020B 
          VFD    60/10116612131415160026B 
          VFD    60/17202122622324250000B 
          VFD    60/26273031320033340024B 
          VFD    60/35363740414243440014B 
 ASCII64  VFD    60/32414243444546470005B   ASCII 64 COLLATING SEQUENCE 
          VFD    60/50515253545556570003B 
          VFD    60/60616263646566670054B 
          VFD    60/70717220212223240002B 
          VFD    60/25262730311315120027B 
          VFD    60/17101104350014160004B 
          VFD    60/03737505027701060042B 
          VFD    60/07373436407476330006B 
          VFD    60/55666460536367700007B 
          VFD    60/51524745564657500010B 
          VFD    60/33343536374041420030B 
          VFD    60/43440077725473710011B 
          VFD    60/74010203040506070001B 
          VFD    60/10111213141516170012B 
          VFD    60/20212223242526270013B 
          VFD    60/30313261756276650016B 
 CSETCDC  ENDIF 
  
 CSETASC  IFEQ   IP.CSET,IP.C64.2 
 COBCOL   VFD    60/32414243444546470032B   ASCII 64 COLLATING SEQUENCE 
          VFD    60/50515253545556570041B 
          VFD    60/60616263646566670042B 
          VFD    60/70717220212223240043B 
          VFD    60/25262730311315120044B 
          VFD    60/17101104350014160045B 
          VFD    60/03737505027701060046B 
          VFD    60/07373436407476330047B 
          VFD    60/55666460536367700050B 
          VFD    60/51524745564657500051B 
          VFD    60/33343536374041420052B 
          VFD    60/43440077725473710053B 
          VFD    60/74010203040506070054B 
          VFD    60/10111213141516170055B 
          VFD    60/20212223242526270056B 
          VFD    60/30313261756276650057B 
 FORTCOL  VFD    60/00010203040506070060B   FORTRAN COLLATING SEQUENCE
          VFD    60/10111213141516170061B 
          VFD    60/20212223242526270062B 
          VFD    60/30313233343536370063B 
          VFD    60/40414243444546470064B 
          VFD    60/50515253545556570065B 
          VFD    60/60616263646566670066B 
          VFD    60/70717273747576770067B 
          VFD    60/00010203040506070070B 
          VFD    60/10111213141516170071B 
          VFD    60/20212223242526270072B 
          VFD    60/30313233343536370020B 
          VFD    60/40414243444546470021B 
          VFD    60/50515253545556570022B 
          VFD    60/60616263646566670023B 
          VFD    60/70717273747576770024B 
 COBOL64  VFD    60/65313233343536370025B   COBOL 64 COLLATING SEQUENCE 
          VFD    60/40414344454647500026B 
          VFD    60/51525355565760610027B 
          VFD    60/62636466677071720030B 
          VFD    60/73747576771722210031B 
          VFD    60/23251520260024140013B 
          VFD    60/05035402270442060015B 
          VFD    60/07103011011213160012B 
          VFD    60/55746361656067700017B 
          VFD    60/71737576575277450010B 
          VFD    60/53474650565154640011B 
          VFD    60/72010203040506070004B 
          VFD    60/10116612131415160035B 
          VFD    60/17202122622324250000B 
          VFD    60/26273031320033340014B 
          VFD    60/35363740414243440016B 
 ASCII64  VFD    60/32414243444546470003B   ASCII 64 COLLATING SEQUENCE 
          VFD    60/50515253545556570073B 
          VFD    60/60616263646566670075B 
          VFD    60/70717220212223240005B 
          VFD    60/25262730311315120002B 
          VFD    60/17101104350014160077B 
          VFD    60/03737505027701060001B 
          VFD    60/07373436407476330006B 
          VFD    60/55666460536367700007B 
          VFD    60/51524745564657500037B 
          VFD    60/33343536374041420034B 
          VFD    60/43440077725473710036B 
          VFD    60/74010203040506070040B 
          VFD    60/10111213141516170074B 
          VFD    60/20212223242526270076B 
          VFD    60/30313261756276650033B 
 CSETASC  ENDIF 
  
 CSET64   ENDIF 
          END 
